home *** CD-ROM | disk | FTP | other *** search
/ Mission 1 / Mission 1 / Mission 1.iso / gewdemos / teamwork / base / db_pool / demo.1b < prev    next >
Encoding:
Text File  |  1994-10-04  |  9.2 KB  |  356 lines
  1. 1ST-BASE INF V1.04-D
  2. #IMPEXP_PATH=C:\HÄNDLER.DAT
  3. #W1=63,22,580,352
  4. #W2=55,38,588,336
  5. #W3=47,54,1236,880
  6.  
  7. #DEVICE PRT1:
  8. #PRINTER Standard 24-pin Matrix
  9. DEVICE= PARALLEL
  10. INIT_X= 0.45
  11. INIT_Y= 2.00
  12. _CR= CR
  13. FWD_LF= ESC "J" n/180
  14. REV_LF= ESC "j" n/180
  15. PRINT_INIT$= ESC "@"
  16. PRINT_EXIT$=
  17. PAGE_INIT$=
  18. PAGE_EXIT$= FF
  19. CPI5$= ESC "!" 32
  20. CPI6$= ESC "!" 33
  21. CPI10$= ESC "!" 0
  22. CPI12$= ESC "!" 1
  23. CPI17$= ESC "!" 4
  24. CPI20$= ESC "!" 5
  25. LPI4$= ESC "3" 54
  26. LPI4_EXEC$= CR LF
  27. LPI6$= ESC "2"
  28. LPI6_EXEC$= CR LF
  29. LPI8$= ESC "0"
  30. LPI8_EXEC$= CR LF
  31. BOLD_ON$= ESC "E"
  32. BOLD_OFF$= ESC "F"
  33. UNDL_ON$= ESC "-" 1
  34. UNDL_OFF$= ESC "-" 0
  35. ITALIC_ON$= ESC "4"
  36. ITALIC_OFF$= ESC "5"
  37. DBLH_ON$= ESC "w" 1
  38. DBLH_OFF$= ESC "w" 0
  39. SUB_ON$= ESC "S" "1"
  40. SUB_OFF$= ESC "T"
  41. SUPER_ON$= ESC "S" "0"
  42. SUPER_OFF$= ESC "T"
  43. 1= ESC "R" 0 "|" BS "^"
  44. 2= ESC "R" 0 "|" BS "v"
  45. 3= "-" BS ">"
  46. 4= "<" BS "-"
  47. "#"= ESC "R" 0 "#"
  48. "$"= ESC "R" 0 "$"
  49. "@"= ESC "R" 0 "@"
  50. "["= ESC "R" 0 "["
  51. "\"= ESC "R" 0 "\"
  52. "]"= ESC "R" 0 "]"
  53. "^"= ESC "R" 0 "^"
  54. "`"= ESC "R" 0 "`"
  55. "{"= ESC "R" 0 "{"
  56. "|"= ESC "R" 0 "|"
  57. "}"= ESC "R" 0 "}"
  58. "~"= ESC "R" 0 "~"
  59. "Ç"= "C" BS " "
  60. "ü"= ESC "R" 2 $7D
  61. "é"= ESC "R" 1 $7B
  62. "â"= "a" BS ESC "R" 0 "^"
  63. "ä"= ESC "R" 2 $7B
  64. "à"= ESC "R" 1 $40
  65. "å"= ESC "R" 4 $7D
  66. "ç"= ESC "R" 1 $5C
  67. "ê"= "e" BS ESC "R" 0 "^"
  68. "ë"= "e" BS ESC "R" 1 $7E
  69. "è"= ESC "R" 1 $7D
  70. "ï"= "i" BS ESC "R" 1 $7E
  71. "î"= "i" BS ESC "R" 0 "^"
  72. "ì"= ESC "R" 6 $7E
  73. "Ä"= ESC "R" 2 $5B
  74. "Å"= ESC "R" 4 $5D
  75. "É"= ESC "R" 9 $40
  76. "æ"= ESC "R" 4 $7B
  77. "Æ"= ESC "R" 4 $5B
  78. "ô"= "o" BS ESC "R" 0 "^"
  79. "ö"= ESC "R" 2 $7C
  80. "ò"= ESC "R" 6 $7C
  81. "û"= "u" BS ESC "R" 0 "^"
  82. "ù"= ESC "R" 1 $7C
  83. "ÿ"= "y" BS ESC "R" 1 $7E
  84. "Ö"= ESC "R" 2 $5C
  85. "Ü"= ESC "R" 2 $5D
  86. "¢"= "c" BS ESC "R" 0 $7C
  87. "£"= ESC "R" 3 $23
  88. "¥"= ESC "R" BS $5C
  89. "ß"= ESC "R" 2 $7E
  90. "ƒ"= "f"
  91. "á"= "a" BS $27
  92. "í"= "i" BS $27
  93. "ó"= "o" BS $27
  94. "ú"= "u" BS $27
  95. "ñ"= ESC "R" 7 $7C
  96. "Ñ"= ESC "R" 7 $5C
  97. "ª"= "a" BS "_"
  98. "º"= "o" BS "_"
  99. "¿"= ESC "R" 7 $5D
  100. "¡"= ESC "R" 7 $5B
  101. "ã"= "a" BS ESC "R" 0 "~"
  102. "õ"= "o" BS ESC "R" 0 "~"
  103. "Ø"= ESC "R" 4 $5C
  104. "ø"= ESC "R" 4 $7C
  105. "À"= "A" BS "`"
  106. "Ã"= "A" BS "~"
  107. "Õ"= "O" BS "~"
  108. "¨"= ESC "R" 1 $7E
  109. "´"= $27
  110. "§"= ESC "R" 2 $40
  111. "∧"= "^"
  112. "β"= ESC "R" 2 $7E
  113. "≡"= "=" BS "_"
  114. "±"= "+" BS "_"
  115. "≥"= ">" BS "_"
  116. "≤"= "<" BS "_"
  117. "÷"= ":" BS "-"
  118. "°"= ESC "R" 1 $5B
  119. "ⁿ"= "n"
  120. "²"= "2"
  121. "³"= "3"
  122.  
  123. #FILE A,ADRESSEN,\ADRESSEN.1BF,139,0,256,0,1,3,4,5,3
  124. 8,1,67,1,0,10,22,Firma,Firma: ,,0
  125. 8,2,32,1,0,10,10,Name,Name: ,,0
  126. 51,2,24,1,0,10,8,Vorname,Vorname: ,,0
  127. 8,3,67,1,0,10,16,Straße,Straße: ,,0
  128. 8,4,8,1,0,10,6,PLZ,PLZ: ,,0
  129. 23,4,52,1,0,10,14,Ort,Ort: 
  130. 8,6,23,1,0,10,10,Tel,Tel: ,,0
  131. 8,7,23,1,0,10,10,Fax,Fax: ,,0
  132. 8,8,23,1,0,10,10,Btx,Btx: ,,0
  133. 45,6,30,1,0,10,10,Anrede1,Anrede1: ,,0
  134. 45,7,30,1,0,10,10,Anrede2,Anrede2: ,,0
  135. 45,8,30,1,0,10,10,Adreßtyp,Adreßtyp: ,,0
  136. 10,10,11,1,0,10,10,Konto_Nr,Konto-Nr: ,,0
  137. 27,10,12,1,0,10,10,BLZ,BLZ: ,,0
  138. 48,10,27,1,0,10,10,Bank,Bank: ,,0
  139. 1,13,71,4,0,10,24,Bemerkung,Bemerkungen,,0
  140.  
  141. #DEVICE PRT1:
  142. #REPORT Printer-Test
  143. . <- Hier X/Y ausmessen und in INIT_X und INIT_Y eintragen.
  144. [@3,5]. <- Dies muß dann die Position X=3 cm und Y=5 cm sein.
  145. PRINT>
  146. Schriftarten:              [FIX_LMARGIN]. <- Hier linker Rand
  147. [CPI5$]Breitschrift 5 CPI
  148. [CPI6$]Hier 6 CPI-Schrift
  149. [CPI10$]Normale 10 CPI-Schrift (Pica)
  150. [CPI12$]Elite-Schrift 12 CPI
  151. [CPI17$]Engschrift 16.66 CPI (Pica Condensed)
  152. [CPI20$]Schmalschrift 20 CPI (Elite Condensed)
  153. PRINT>
  154. [FIX_LMARGIN;CPI10$]
  155. Attribute:
  156. Normal, [BOLD_ON$]Fett[BOLD_OFF$], [UNDL_ON$]Unterstrichen[UNDL_OFF$], [ITALIC_ON$]Kursiv[ITALIC_OFF$].
  157. (Basislinie)__[SUPER_ON$]Hochgestellt[SUPER_OFF$]__[SUB_ON$]Tiefgestellt[SUB_OFF$]__[DBLH_ON$]Doppelt hoch[DBLH_OFF$]__
  158. PRINT>
  159. Zeilenabstand:
  160. [@1,12;FIX_LMARGIN;LPI8$]__ 8 Zeilen/inch:
  161.    Zeile 1
  162.    Zeile 2
  163.    Zeile 3
  164.    Zeile 4
  165.    Zeile 5
  166.    Zeile 6
  167.    Zeile 7
  168. __ Zeile 8
  169. [@8,12;FIX_LMARGIN;LPI6$]__ 6 Zeilen/inch:
  170.    Zeile 1
  171.    Zeile 2
  172.    Zeile 3
  173.    Zeile 4
  174.    Zeile 5
  175. __ Zeile 6
  176. [@15,12;FIX_LMARGIN;LPI4$]__ 4 Zeilen/inch:
  177.    Zeile 1
  178.    Zeile 2
  179.    Zeile 3
  180. __ Zeile 4[LPI6$]
  181. PRINT>
  182. [FIX_LMARGIN]Zeichensatz:
  183.   ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?
  184. @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [CHR$(91)] \ ] ^ _
  185. ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ 
  186. Ç ü é â ä à å ç ê ë è ï î ì Ä Å É æ Æ ô ö ò û ù ÿ Ö Ü ¢ £ ¥ ß ƒ
  187. á í ó ú ñ Ñ ª º ¿ ⌐ ¬ ½ ¼ ¡ « » ã õ Ø ø œ Œ À Ã Õ ¨ ´ † ¶ © ® ™
  188. ij IJ א ב ג ד ה ו ז ח ט י כ ל מ נ ס ע פ צ ק ר ש ת ן ך ם ף ץ § ∧ ∞
  189. α β Γ π Σ σ µ τ Φ Θ Ω δ ∮ ϕ ∈ ∩ ≡ ± ≥ ≤ ⌠ ⌡ ÷ ≈ ° ∙ · √ ⁿ ² ³ ¯
  190. PRINT>
  191. Registrierungsdaten: [FIX_LMARGIN;SERIAL$]
  192. [USER1$]
  193. [USER2$]
  194. [USER3$]
  195. [USER4$]
  196. [USER5$]
  197. [PAGE_EXIT$];
  198.  
  199. #REPORT Kurzmitteilung
  200. INPUT "Mitteilung: ||||||||||",M1$,M2$,M3$,M4$,M5$,M6$,M7$,M8$,M9$;M10$
  201. PRINT LPI4$;@4,6;FIX_LMARGIN;Firma$;@13;Tel$;"/";Fax$
  202. PRINT Vorname$;" ";Name$
  203. PRINT Straße$
  204. PRINT DBLH_ON$;PLZ$;" ";Ort$;DBLH_OFF$
  205. PRINT>
  206. PRINT>
  207. PRINT>
  208. PRINT CPI5$;"Kurzmitteilung";CPI10$
  209. PRINT>
  210. PRINT M1$
  211. PRINT M2$
  212. PRINT M3$
  213. PRINT M4$
  214. PRINT M5$
  215. PRINT M6$
  216. PRINT M7$
  217. PRINT M8$
  218. PRINT M9$
  219. PRINT M10$;PAGE_EXIT$;
  220.  
  221. #REPORT Telefonliste
  222. PRINT "Name";@12;"Telefon"
  223. PRINT "---------------------------------------------------------"
  224. DO 50
  225. PRINT Firma$;" ";Vorname$;" ";Name$;@12;Tel$
  226. LOOP
  227. PRINT PAGE_EXIT$;
  228.  
  229. #DEVICE MODEM:
  230. #REPORT Tel wählen
  231. PRINT "ATD";Tel$
  232. ALERT "[1][Hörer auflegen.][Ok|Abbruch]"
  233. PRINT "ATH"
  234.  
  235. #DEVICE KEYBD:
  236. #REPORT Briefkopf an WORDPLUS
  237. PRINT
  238. PRINT Firma$
  239. PRINT Vorname$;" ";Name$
  240. PRINT Straße$
  241. PRINT CHR$(17);PLZ$;" ";Ort$;CHR$(17)
  242. PRINT>
  243. PRINT "Sehr geehrte Damen und Herren,"
  244. PRINT>
  245. PRINT "Mit freundlichen Grüßen"
  246. PRINT USER1$
  247. PRINT STRING$(4,1);
  248.  
  249. #FILE B,ARTIKEL,\ARTIKEL.1BF,139,0,0,0,0,0,0,0,0
  250. 19,1,41,1,0,10,27,Artikel,Artikel: 
  251. 19,4,41,1,0,10,11,Hersteller,Hersteller: 
  252. 19,7,13,1,1,10,9,Preis,Preis: ,,1
  253. 19,8,13,1,1,10,9,VK_Preis,VK-Preis: ,,1,,Preis*1.14
  254.  
  255. #FILE C,AUFTRÄGE,\AUFTRÄGE.1BF,139,0,256,0,0,0,0,0,0
  256. 8,1,67,1,0,266,23,Firma,Firma: ,1:Firma
  257. 8,2,29,1,0,10,13,Name,Name: ,1:Name
  258. 48,2,27,1,0,10,65535,Vorname,Vorname: ,1:Vorname
  259. 8,3,67,1,0,10,65535,Straße,Straße: ,1:Straße
  260. 8,4,12,1,0,10,6,PLZ,PLZ: ,1:PLZ
  261. 27,4,48,1,0,10,65535,Ort,Ort: ,1:Ort
  262. 0,6,5,1,1,17,65535,Anzahl1,Anzahl,,0
  263. 6,6,49,1,0,529,12,Artikel1,Artikel,8:Artikel
  264. 56,6,8,1,1,17,65535,Einzel1,Einzelpreis,8:Preis,1
  265. 66,6,9,1,1,17,65535,Gesamt1,Gesamtpreis,,3,,Anzahl1*Einzel1
  266. 0,7,5,1,1,18,65535,Anzahl2,,,0
  267. 6,7,49,1,0,530,15,Artikel2,,12:Artikel
  268. 56,7,8,1,1,18,65535,Einzel2,,12:Preis,1
  269. 66,7,9,1,1,10,65535,Gesamt2,,,3,,Anzahl2*Einzel2
  270. 0,8,5,1,1,18,65535,Anzahl3,,,0
  271. 6,8,49,1,0,530,65535,Artikel3,,16:Artikel
  272. 56,8,8,1,1,18,65535,Einzel3,,16:Preis,1
  273. 66,8,9,1,1,10,65535,Gesamt3,,,3,,Anzahl3*Einzel3
  274. 0,9,5,1,1,18,65535,Anzahl4,,,0
  275. 6,9,49,1,0,18,65535,Artikel4,,20:Artikel
  276. 56,9,8,1,1,18,65535,Einzel4,,20:Preis,1
  277. 66,9,9,1,1,10,65535,Gesamt4,,,3,,Anzahl4*Einzel4
  278. 0,10,5,1,1,18,65535,Anzahl5,,,0
  279. 6,10,49,1,0,530,65535,Artikel5,,24:Artikel
  280. 56,10,8,1,1,18,65535,Einzel5,,24:Preis,1
  281. 66,10,9,1,1,10,65535,Gesamt5,,,3,,Anzahl5*Einzel5
  282. 0,11,5,1,1,18,65535,Anzahl6,,,0
  283. 6,11,49,1,0,522,65535,Artikel6,,28:Artikel
  284. 56,11,8,1,1,10,65535,Einzel6,,28:Preis,1
  285. 66,11,9,1,1,10,65535,Gesamt6,,,3,,Anzahl6*Einzel6
  286. 0,12,5,1,1,10,65535,Anzahl7,,,0
  287. 6,12,49,1,0,522,65535,Artikel7,,32:Artikel
  288. 56,12,8,1,1,10,65535,Einzel7,,32:Preis,1
  289. 66,12,9,1,1,10,65535,Gesamt7,,,3,,Anzahl7*Einzel7
  290. 56,14,19,1,1,18,65535,Summe,Summe: ,,7,,Gesamt1+Gesamt2+Gesamt3+Gesamt4+Gesamt5+Gesamt6+Gesamt7
  291. 56,15,19,1,1,18,65535,MwSt,Mehrwertsteuer: ,,7,,Summe*0.14
  292. 56,16,19,1,1,18,65535,Total,Total: ,,7,,Summe+MwSt
  293.  
  294. #DEVICE PRT1:
  295. #REPORT Rechnung
  296. PRINT @3,6;FIX_LMARGIN;Firma$
  297. PRINT Vorname$;" ";Name$
  298. PRINT Straße$;LPI4$
  299. PRINT DBLH_ON$;PLZ$;" ";Ort$;DBLH_OFF$
  300. PRINT>
  301. PRINT @16;SYSDATE$
  302. PRINT>
  303. PRINT>
  304. PRINT>
  305. PRINT CPI5$;"RECHNUNG";CPI10$
  306. PRINT SUPER_ON$;"Wir lieferten Ihnen zu unseren Lieferbedingungen:";SUPER_OFF$
  307. PRINT>
  308. PRINT Anzahl1$;@4;Artikel1$;@15;"DM";STR$(Gesamt1,"##.###,##")
  309. PRINT Anzahl2$;@4;Artikel2$;@15;"DM";STR$(Gesamt2,"##.###,##")
  310. PRINT Anzahl3$;@4;Artikel3$;@15;"DM";STR$(Gesamt3,"##.###,##")
  311. PRINT Anzahl4$;@4;Artikel4$;@15;"DM";STR$(Gesamt4,"##.###,##")
  312. PRINT Anzahl5$;@4;Artikel5$;@15;"DM";STR$(Gesamt5,"##.###,##")
  313. PRINT @15;"-----------"
  314. PRINT @10;"Gesamtpreis";@15;"DM";STR$(Summe,"##.###,##")
  315. PRINT @10;"zzgl. 14% MwSt";@15;"DM";STR$(MwSt,"##.###,##")
  316. PRINT @15;"-----------"
  317. PRINT @10;"Rechnungsbetrag";@15;"DM";STR$(Total,"##.###,##")
  318. PRINT @15;"==========="
  319. PRINT>
  320. PRINT>
  321. Zahlbar sofort ohne jegliche Abzüge.
  322. Bankverbindung: PGA Hamburg, BLZ 20010020, Konto 19452-207
  323. PRINT PAGE_EXIT$;
  324.  
  325. #REPORT 1. Mahnung
  326. PRINT @3,6;FIX_LMARGIN;LPI4$;Firma$;@13;Tel$;"/";Fax$
  327. PRINT Vorname$;" ";Name$
  328. PRINT Straße$
  329. PRINT DBLH_ON$;PLZ$;" ";Ort$;DBLH_OFF$
  330. PRINT>
  331. PRINT>
  332. PRINT>
  333. PRINT>
  334. PRINT @16;SYSDATE$
  335. PRINT CPI5$;"1. Mahnung";CPI10$
  336. PRINT>
  337. PRINT>
  338. PRINT>
  339. Sehr geehrte Damen und Herren,
  340. PRINT>
  341. unsere Rechnung vom [Datum$] ist noch offen (Kopie in Anlage).
  342. Wir haben alle Zahlungseingänge bis zum [SYSDATE$] berücksichtigt.
  343. PRINT>
  344. Bitte veranlassen Sie umgehend die Zahlung, denn sonst müssen wir
  345. Ihnen gemäß unseren Zahlungsbedingungen Verzugszinsen berechnen.
  346. PRINT>
  347. Falls sich Ihre Zahlung mit diesem Schreiben überschnitten hat,
  348. betrachten Sie dieses bitte als gegenstandslos.
  349. PRINT>
  350. PRINT>
  351. PRINT>
  352. Mit freundlichen Grüßen
  353. PRINT>
  354. PRINT USER1$;PAGE_EXIT$;
  355.  
  356.